home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / RUN COUNTER & DATER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  7 lines
  1. 10  GOTO 11:"07/01/82/0001": REM DON'T^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10.
  2. 11 P$ = "PROGRAM NAME": REM TYPE^ACTUAL^NAME^IN^QUOTES.
  3. 12 L =  PEEK(103) + PEEK(104) *256 +9: FOR I = L TO L +7:DAY$ = DAY$ + CHR$( PEEK(I)): NEXT :NMBR = 1000 *( PEEK(L +9) -48) +100 *( PEEK(L +10) -48) +10 *( PEEK(L +11) -48) + PEEK(L +12) -48
  4. 13  HOME : VTAB 22: PRINT P$: FOR I = 1 TO  LEN(P$): PRINT "-";: NEXT : PRINT : PRINT "RUN NUMBER:  ";NMBR: PRINT "LAST RUN ON: ";DAY$;".": PRINT : PRINT "TODAY'S DATE:__/__/__";: HTAB 13: INPUT ":";NUDAY$: IF  LEN(NUDAY$) < >8  THEN 13
  5. 14  FOR I = 1 TO 8:A$(I) =  MID$ (NUDAY$,I,1): NEXT :MO =  VAL(A$(1)) *10 + VAL(A$(2)):DA =  VAL(A$(4)) *10 + VAL(A$(5)): IF (MO <1  OR MO >12)  OR (DA <1  OR DA >31)  OR A$(3) < >"/"  OR A$(6) < >"/"  THEN 13
  6. 15  FOR I = 1 TO 8: POKE L +I -1, ASC(A$(I)): NEXT :NMBR = NMBR +1: POKE L +12,48 +NM - INT(NM/10) *10: POKE L +11,48 + INT((NM - INT(NM/100) *100)/10): POKE L +10,48 + INT((NM - INT(NM/1000) *1000)/100): POKE L +9,48 + INT(NM/1000)
  7. 16  PRINT : PRINT "(STAND BY...)": PRINT  CHR$(4);"UNLOCK ";P$: PRINT  CHR$(4);"SAVE ";P$: PRINT  CHR$(4);"LOCK ";P$